home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Medabots Cardz
/
Medabots CD Cardz Sumilidon.bin
/
mac
/
assets
/
sumilidon.dxr
/
00073_Script_73
< prev
next >
Wrap
Text File
|
2001-12-07
|
9KB
|
283 lines
property minuteman, tempdigits, tempscore, digit_one, digit_two, digit_three, digit_four, tempscoreone, tempscoretwo, tempscorethree
global thescore, finalcode, scoredigits, timescore, gotobrassurl, myFile, squam, oldscore
--on enterframe me
-- squam = getOSdirectory()&"\"
-- if objectP(myFile) then set myFile = 0 --Delete the instance if it already exists
-- myFile = new(xtra "fileio") -- Create an instance of FileIO
-- -- openFile(myFile,the moviePath&"info.txt",1) --Open the file with read access
-- openFile(myFile,squam&"info.txt",1) --Open the file with read access
-- myVariable = readFile(myFile) --set the variable 'myVariable' to the text of the file 'info.txt'
-- if readFile(myFile)=VOID then --checks to see if this file exists
-- oldscore = 0
-- else
-- oldscore = myVariable
-- closeFile(myFile) -- Close the file
-- end if
-- myFile = 0 -- Dispose of the instance
--
--
-- minuteman = timescore/60
-- if minuteman < 120 then
-- thescore = 500
-- else if minuteman > 119 and minuteman < 300 then
-- thescore = 400
-- else if minuteman > 299 and minuteman < 600 then
-- thescore = 300
-- else if minuteman > 599 and minuteman < 1200 then
-- thescore = 200
-- else if minuteman > 1199 and minuteman < 2000 then
-- thescore = 150
-- else
-- thescore = 100
-- end if
-- thescore = thescore + oldscore
-- put thescore into member("holdscore")
--
-- if objectP(myFile) then set myFile = 0 --Delete the instance if it already exists
-- myFile = new(xtra "fileio") -- Create an instance of FileIO
-- -- openFile (myFile, the moviePath &"info.txt",0)--Open the file with R/W access
-- openFile (myFile, squam&"info.txt",0)--Open the file with R/W access
-- delete(myFile) --deletes the file
-- -- createFile (myFile, the moviePath &"info.txt") --creates the file again
-- createFile (myFile, squam&"info.txt") --creates the file again
-- -- openFile(myFile,the moviePath &"info.txt",0) --Open the file with R/W access
-- openFile(myFile, squam&"info.txt",0) --Open the file with R/W access
-- mySaveString = thescore --puts the contents of the field 'input' into the variable mySaveString
-- mySaveString = member("holdscore").text
-- writeString(myFile,mySaveString) --writes text to the file
--
-- closeFile(myFile) -- Close the file
-- myFile = 0 -- Dispose of the instance
--
-- put minuteman into member ("timedisplay")
-- wakkit()
--end
on exitFrame me
cursor 0
go to the frame
end
--
--on wakkit me
-- brassurl = "http://medabots.com/rewards/coding/rewards_give.pl?a=snvsjdfnvkdfvdf"
--
-- if thescore > 10000 then
-- thescore = 9999
-- end if
--
-- if thescore > 0 and thescore <10 then
-- scoredigits = 1
-- tempscore = thescore
-- tempdigits = 1
-- else if thescore > 9 and thescore <100 then
-- scoredigits = 2
-- tempscore = thescore
-- tempdigits = 2
-- else if thescore >99 and thescore < 1000 then
-- scoredigits = 3
-- tempscore = thescore
-- tempdigits = 3
-- else if thescore >999 and thescore < 10000 then
-- scoredigits = 4
-- tempscore = thescore
-- tempdigits = 4
-- end if
--
-- -- Four Figures
-- if tempdigits = 4 then
-- if tempscore > 999 and tempscore <2000 then
-- digit_four = "q"
-- tempscore = tempscore - 1000
-- tempdigits = 3
-- end if
-- if tempscore > 1999 and tempscore <3000 then
-- digit_four = "u"
-- tempscore = tempscore - 2000
-- tempdigits = 3
-- end if
-- if tempscore > 2999 and tempscore <4000 then
-- digit_four = "j"
-- tempscore = tempscore - 3000
-- tempdigits = 3
-- end if
-- if tempscore > 3999 and tempscore <5000 then
-- digit_four = "c"
-- tempscore = tempscore - 4000
-- tempdigits = 3
-- end if
-- if tempscore > 4999 and tempscore <6000 then
-- digit_four = "k"
-- tempscore = tempscore - 5000
-- tempdigits = 3
-- end if
-- if tempscore > 5999 and tempscore <7000 then
-- digit_four = "b"
-- tempscore = tempscore - 6000
-- tempdigits = 3
-- end if
-- if tempscore > 6999 and tempscore <8000 then
-- digit_four = "r"
-- tempscore = tempscore - 7000
-- tempdigits = 3
-- end if
-- if tempscore > 7999 and tempscore <9000 then
-- digit_four = "w"
-- tempscore = tempscore - 8000
-- tempdigits = 3
-- end if
-- if tempscore > 8999 and tempscore <10000 then
-- digit_four = "n"
-- tempscore = tempscore - 9000
-- tempdigits = 3
-- end if
-- end if
--
--
--
--
-- -- Three Figures
-- if tempdigits = 3 then
-- if tempscore > 99 and tempscore <200 then
-- digit_three = "q"
-- tempscore = tempscore - 100
-- tempdigits = 2
-- end if
-- if tempscore > 199 and tempscore <300 then
-- digit_three = "u"
-- tempscore = tempscore - 200
-- tempdigits = 2
-- end if
-- if tempscore > 299 and tempscore <400 then
-- digit_three = "j"
-- tempscore = tempscore - 300
-- tempdigits = 2
-- end if
-- if tempscore > 399 and tempscore <500 then
-- digit_three = "c"
-- tempscore = tempscore - 400
-- tempdigits = 2
-- end if
-- if tempscore > 499 and tempscore <600 then
-- digit_three = "k"
-- tempscore = tempscore - 500
-- tempdigits = 2
-- end if
-- if tempscore > 599 and tempscore <700 then
-- digit_three = "b"
-- tempscore = tempscore - 600
-- tempdigits = 2
-- end if
-- if tempscore > 699 and tempscore <800 then
-- digit_three = "r"
-- tempscore = tempscore - 700
-- tempdigits = 2
-- end if
-- if tempscore > 799 and tempscore <900 then
-- digit_three = "w"
-- tempscore = tempscore - 800
-- tempdigits = 2
-- end if
-- if tempscore > 899 and tempscore <1000 then
-- digit_three = "n"
-- tempscore = tempscore - 900
-- tempdigits = 2
-- end if
-- end if
--
--
-- -- Two Figures
-- if tempdigits = 2 then
-- if tempscore < 10 then
-- digit_two = "x"
-- tempscore = tempscore
-- tempdigits = 1
-- end if
--
-- if tempscore > 9 and tempscore <20 then
-- digit_two = "q"
-- tempscore = tempscore - 10
-- tempdigits = 1
-- end if
-- if tempscore > 19 and tempscore <30 then
-- digit_two = "u"
-- tempscore = tempscore - 20
-- tempdigits = 1
-- end if
-- if tempscore > 29 and tempscore <40 then
-- digit_two = "j"
-- tempscore = tempscore - 30
-- tempdigits = 1
-- end if
-- if tempscore > 39 and tempscore <50 then
-- digit_two = "c"
-- tempscore = tempscore - 40
-- tempdigits = 1
-- end if
-- if tempscore > 49 and tempscore <60 then
-- digit_two = "k"
-- tempscore = tempscore - 50
-- tempdigits = 1
-- end if
-- if tempscore > 59 and tempscore <70 then
-- digit_two = "b"
-- tempscore = tempscore - 60
-- tempdigits = 1
-- end if
-- if tempscore > 69 and tempscore <80 then
-- digit_two = "r"
-- tempscore = tempscore - 70
-- tempdigits = 1
-- end if
-- if tempscore > 79 and tempscore <90 then
-- digit_two = "w"
-- tempscore = tempscore - 80
-- tempdigits = 1
-- end if
-- if tempscore > 89 and tempscore <100 then
-- digit_two = "n"
-- tempscore = tempscore - 90
-- tempdigits = 1
-- end if
--
-- end if
-- -- One Figure
-- if tempdigits = 1 then
-- if tempscore = 0 then
-- digit_one = "x"
-- else if tempscore = 1 then
-- digit_one = "q"
-- else if tempscore = 2 then
-- digit_one = "u"
-- else if tempscore = 3 then
-- digit_one = "j"
-- else if tempscore = 4 then
-- digit_one = "c"
-- else if tempscore = 5 then
-- digit_one = "k"
-- else if tempscore = 6 then
-- digit_one = "b"
-- else if tempscore = 7 then
-- digit_one = "r"
-- else if tempscore = 8 then
-- digit_one = "w"
-- else if tempscore = 9 then
-- digit_one = "n"
-- end if
-- end if
--
-- if scoredigits = 1 then
-- finalcode = digit_one
-- else if scoredigits = 2 then
-- finalcode = digit_two&digit_one
-- else if scoredigits = 3 then
-- finalcode = digit_three&digit_two&digit_one
-- else if scoredigits = 4 then
-- finalcode = digit_four&digit_three&digit_two&digit_one
-- end if
--
-- put brassurl&finalcode into member("urldisplay")
-- gotobrassurl = brassurl&finalcode
--end